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Abstract 

A flowchart, listings and additional p>rogram notes on 
TAPESPY. This program displays the contents of tape as 
characters or in graphical form. Adjacent tape blocks 
may be viev7ed by adjusting knob zero., to control both 
the speed and direction of the scan. On the Spear 
Micro-LINC 300. the program, uses buffered tape instruc- 
tions for continuous display. As a convenience, an 
abbreviated set of operating instructions can be dis- 
played by pressing START 20. 
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National Institutes of Health under grant FR-00396. 



ADDITIONAL COMMENTS ABOUT TAP ESPY 

The tape scanning program occupies only three quarters (1, 2, 3). 
(This was done so that this program could be used as part of another system 
with a dispatch routine in quarter 0.) The instruction display now occupy- 
ing quarter zero could be replaced by any routine or extension to TAPESPY 
(in which case the name should be changed). (Note that the Q+A routine 
cannot be used as a subroutine.) 

TAPESPYP 

One possible modification - called TAPESPYP permits the amount of for- 
ward or backward motion to be controlled from the keyboard. During the 
scan, when any key except EOL or "L" is struck, the display is advanced n 
words where n is the keyboard code for the key struck. (This permits moves 
of 0-54(8) words - two characters per word.) The direction of motion is 
specified by sense switch 3, up: toward block zero, down: toward block 777. 

The modification for TAPESPYP is at y/5A as follows: 

[EEAD KEYBOARD 
//5A KBD^ 
SHDi 
1200 
. JMP 20 [BN REQUEST 

SHDi 

"L.I, 

'jMP 2A [LAP6 
SNSi3 
COM 
JMP 6C-1 [advance SCAN 

[ 



- 2 - 



TAPESPY can be run from quarters 0, 1, 2 - requiring only 3 blocks to store 
it on tape. Change the first few lines to: 



Bl 
CLR 
MSC 4 
APOi 
JMP P+4 
LDAi. 

-40 
STC 6V-1 
LDAi 
NOP 
STC 20 
SETil2 

-1 
JMP 3A 

B20 
JMP 1 
[Q4-A ROUTINE - MODIFIED 
//3A SETiie 



TAPESPY Beta Register Utilization 

1 -. horiz coordinate - MSGDIS Subroutine 

2 - distance from top of scope - MSGDIS Subroutine 
• 3 - data pointer - MSGDIS Subroutine 

4 - used as temp in MSGDIS Subroutine 

5 - counts max characters per line in MSGDIS Subroutine 

6 ~ counts lines for calling MSGDIS Subroutine 

7 - used in MSGDIS modified subroutine for block boundary display 

10 - scope coordinate for binary display and block number display 

11 - data pointer for binary display 

13 - contains starting data location (21) 

14 ~ starting BN 

15 - current BN (Binary mode only) 

16 - starting quarter number 

17 - current BN (Binary mode only) 




SETUP SS2 
DELAY RATE 



3A 
7R 



DISPLAY QUESTIONS 
DECODE RESPONSES 
INITIAL READ 




TAP ESPY. 











value: 


LINE 


VALUE 


LINE 


IB 


1010 


567 


6U 


1256- 


1045 


IG 


17b3 


160 4 


6V 


1264 


1054 


IH 


17 56 


1607 


6X 


1650 


1471 


IQ 


52 4 


310 


6Y 


1335 


1 131 


2 A 


123-^1 


1017 


6Z 


1 142 


715 


2B 


1016 


573 


71 


1275 


1066 


2D 


Alio 


563 


7J 


1424 


1227 


2E 


1514 


1324 


70 


56 5 


353 


2G 


1 123 


673 


7f^ 


1032 


60 1 


2H 


1 131 


701 


9A 


0020 


1 1 


21 


00 13 


1612 


9H. 


0032 


23 


2J 


1241 


1026 


9J 


0051 


45 


2K 


1247 


1035 


9W 


0371 


1 53 


2L 


1513 


1323 


9X 


0100 


76 


21^; 


1 541 


1352 


9Y 


0166 


1 14 


2N 


1 176 


754 


•9Z 


0277 


132 


2P 


1603 


1416 








20 


0535 


321 








2R 


0421 


203 








2S 


157 4 


1407 








2T 


1 161 


7 36 








2U 


1402 


1201 








2V 


1 172 


747 








2 Is' 


1363 


1 162 








2X 


1307 


1 100 








2Y 


1554 


1366 








2Z 


1622 


1440 








3A 


041 1 


172 








3B 


1632 


1453 








3C 


1532 


1342 








3E 


1707 


1534 








3G 


1647 


1470 








3H 


16 52 


1 473 








3J 


1673 


1514 








3L 


1674 


1517 








3N 


1702 


1527 








3P 


1656 


1477 








30 


0550 


335 








3R 


0433 


21 5 








3X 


10 42 


61 1 








3Y 


1504 


1312 








3Z 


130 4 


107 5 








AB. 


077 1 


56 4 








AQ 


0447 


231 








Ay< 


47 1 


253 








5 A 


1230 


1012 








50 


55 4 


341 








bR 


460 


2 42 








5 V! 


17 47 


1 60 1 








60 


1270 


1060 








6E 


1322 


1116 








6F 


1345 


1 1 41 








6G 


1362 


1161 








6H 


1 135 


710 








6J 


1452 


1260 








6K 


1470 


1276 








6L 


147 4 


1302 








6Q 


57 1 


361 








6S 


1406 


1207 








6U 


12 56 


10 45 









TAP ESP Y^ 1 LN=1 
P CONT 





CTAPESPY 6 120169 




C AFTER KAGSPY FROh PDP12 




Bl 


1 6400 


• JKiP 400 


2 A12A 




3 4330 




A A6A3 




5 5414 






tTAPESPY i 


6 0414 




7 .2537 




10 4226 




1 1 3646 






t4 BLOCK Si 




B20 




[DISPLAY DIRECTIONS 


20 0074 


/'/9A SETil4 


21 0100 


9X 


22. 6047 


JK'P 9J-2 


23 6022 


JMP P-1 


24 007 4 


SETil4 


25 0166 


9Y 


.26 6047 


JMP 9J~2 


27 6026 


JKP P-1 


30 0074 


SETil4 


31 0277 


9Z 


32 6047 


//9H JMP 9J-2 


33 6035 


JMP P+2 


34 6020 


JMP 9A 




CSHO'/j EOL 


35 .0062 


SETi2 


36 0006 


6 


37 00 63. 


SETi3 


40 037 1 


9W 


41 0061 


SETil 


42 0470 


470 


43 001 1 


CLR 


44 0017 


COt^, 


45 7633 


JMP 3B+1 


46 6032 


JMP 9H 
C 
CCALL DISPLAY 




47 0057 


SET 17 


50 0000 





51 0043 


//9J SET 3 


52 00 1 4 


14 


53 00 6 6 


SLTi6 


54. 7764 


-13 


55 0062 


SET 12 


56 0003 


3 


57 0061 


SETil 


60 0030 


30 


61 7 6 32 


JK:P 38 CMSGDIS 


62 0222 


XSKi2 


63 0226 


XSki6 


64 6057 


• JMP P-5 


65 0415 


KST 



TAP ESPY ^2 


LN=62 


P CONT 




66 6017 


JKP 1 


67 0515 


KBD 


70 1420 


SHDi . 


7 1 31 \ A 


tLi 


72 7234 


JKP 2A 


73 1460 


SAEi 


74 0012 


12 


75 6051 


JMP 9J 


76 0237 


XSKil7 


77 6017 


JKP 17 
C 
CDISPLAYS 




100 1414 




101 1414 




102 1447 




103 2443 




104 3046 




105 4354 






#9X t 


106 1212 


1212 


107 46 47 




1 10 2445 




111 4714 




1 12 0200 




113 1414 




1 14 2734 




1 1 5 4530 




1 16 2647 




1 17 3442 




120 4146 






T START 


121 1214 


T 


121 1246 




122 4724 




123 4547 




124 1404 




125 0000 




126 1214 


START 

1 


127 1414 


i 


130 1414 




131 3053 




132 3026 




133 50 47 




1,34 30 14 




135 472 4 




136 4330 




137 46 43 




140 5414 


T E 


141 1212 


1212 


1 42 30 42 




143 37 14 




144 1414 




145 4130 




146 5347 




147 1427 




150 3446 





TAP ESP Yi 



20 DIRECT I ON Si 



400 



EXECUTE TAP ESP Yi 



TAPESPY>3 LN=107 

P CONT 

151 4337 ■ ■ 

152 2454 

153 1214 lEOL NEXT DISPLAY 

I 

1 54 1214 T 

154 1270 

155 3770 

156 1414 

157 1437 

160 2443 

161 06 14 

162 4530 

163 4750 ' 

164 4541 

165 1214 TLi LAP6 F^ETURN 

i 
[SECOND 

166 36 41 

167 4225 

170 1455 

171 3045 

172 4214 

173 2642 

174 41.47 

175 4542 

176 37 46 ' 

177 1214 ff9\ tKNOB Z EH C0NTF^:0LS 
177 1214 

200 4643 

201 3030 

202 27 14 
20 3 2 441 

204 27 14 

205 2734 
. 206 4530 

. 207 2647 

210 3442 

211 4114 SPEED AND DIRECTIONi 

212 1214 . r 

212 1246 

213 4601 

214 1414 

215 50 43 

216 1426 

217 3324 

220 452 4 

221 26 47 

222 30 4 5 

223 4612 SSI UP ChARACTEKS 
: 224 1414 

225 1414 

226 1427 

227 4114 

230 142 5 

231 3441 

232 2445 

233 5412 DN BINARY 



T(\PESPy^A LN=12 1 



CONT 



23 A 


1214 


t 


23A 


1246 




235 


4602, 




236 


1414 




237 


5043 




2 40 


1414 




241 


3124 




242 


46 47 




243 


3045 




2 44 


12 14 


SS 


2 44 


1214 




245 


1414 




246 


1 41 4 




247 


2741 




2 50 


1414 




251 


4637 




2 52 


42 52 




253 


3045 




254 


1214 


1 


255 


1214 


t 


255 


1203 




256 


1433 




257 


3414 




260 


2 53 4 




261 


4746 




262 


1437 




263 


4652 




264 


1214 


3 


264 


1214 




265 


1414 




266 


4626 




267 


2437 




270 


3014 




271 


2742 




27 2 


52 41 




273. 


1 425 




27 4 


3441 




275 


2 44 5 




276 


5414 


C THIRD 


277 


1446 




300 


4330 




30 1 


2634 




302 


2 437 




303 


1 426 




30 4 


332 4 




30 5 


4 52 4 




306 


2647 




307 


3045 




310 


4612 


//9Z T 

■ 


311 


1214 


1 

T 


31 1 


1226 




312 


422 7 




313 


3014 





Uf^ 



FASTER 



DN SLOlsILR 



HI BITS LSW 



SCALE DOl'vN BINARYi 



SPECIAL CHARACTERS 



TAPESPY>5 LN-136 

P CONT 

3\A IA\A 

315 1414 

316 1426 

317 3324 

320 4512 CODE CHAF^ 

321 1401 . 

322 0214 

323 1430 

324 4237 

325 1412 T 12 EOL 

. ^ . 

326 140 1 

327 0314 

330 1427 . 

331 3037 

332 \A\A 

333 1414 t 13 DEL i 

334 1312 1312 

335 1402 

336 0314 

337 1426 

340 2446 

341 3014 ' 

342 1414 T 23 CASE l 

343 2312 2312 

344 1405 

345 0614 " 

346 1440 

347 30 47 

350 2414 

351 1414 T 56 META i 

352 5612 5612 - 

353 1405 

354 0714 

355 1440 

356 3047 

357 2414 

360 1414- T 57 META t 

361 57 12 5712 

362 1407 . . 

363 07 14 
36 4 1430 

36 5 4240 

366 \A\A ■ 

367 1414 . t 7 7 EOt< 'i 
370 7712 7712 

37 1 1212 //9'.v 1212 

C 

[TAF^ESPY -- CHARACTER OR BINARY WINDOV^ 
C USES BUFFERED TAPE ON SPEAR MICROLINC 300 
BAOO 

400 0072 SETil2 

401 7776 -1 

402 00 1 1 CLR 

403 0004 ^)SC 4 

404 047 1 APOi 



TAPESPY^6 


LN: 


= 165 


p 


CONT 






40 5 


6 4 1 1 




JMP P+4 


406 


1020 




LDAi 


407 


77 37 




-40 CCHANGEABLE 


410 


5263 




STC 6V-1 CSS2 DELAY 






CQ+A ROUTINE - MODIFIED 


41 1 


0076 


f5*'3A 


SETil6 


412 


47 70 




2D CTEXT START 


413 


6554 




Jf^fP 50 


414 


6417 




JhP 2R-2 C76 FILL W 


41 5 


6421 




JKjP 2R C77 DONE 


416 


6413 




JKP P-3 


417 


6524 




JMP 10 


420 


6413 




JKiP P-5 






r. ELIM RET COKPUTE 


421 


0076 


/r^2R 


SETil6 


422 


4770 




.2D 


423 


6554 




JMP 5Q 


42 4 


1336 




LDHil6 


42 5 


6427 




JMP P+2 


426 


6423 




JMP P-3 . 


427 


1020 




LDAi 


430 


3777 




-4000 


431 


1 140 




ADM 


432 


0016 




16 


433 


4536 


//3R 


STC 2Q+1 


434 


1020 




LDAi 


435 


0101 




101 


436 


4446 




STC 4Q-1 


437 


0077 




SETil7 


440 


4770 




2D 


441 


0061 




SETi 1 


442 


0100 




100 


443 


1020 




LDAi 


444 


77 37 




-40 


445 


1 160 




ADMi 


446 


0000 




CVERT 


447 


1337 


#4Q 


LDHil7 


4 50 


6555, 




JMP 5Q+1 


451 


6447 




JMP P-2. 


452 


6471 




JMP 4R 


453 


1420 




SHDi 


454 


1200 




1200 


455 


6 4 41 




JMP 3R+6 


456 


0241 




ROL 1 


457 


1 120 




ADA! 


460 


57 1 


//5}^ 


69 C CONSTANT 


461 


40 1 5 




STC 15 


462 


3514 




ADD 2E C = 4 


463 


2001 




ADD 1 


464 


4001 




STC 1 


465 


2446 




ADD 40- i 


466 


17 55 




DSC 15 


467 


1775 




DSCilS 


470 


6447 




JMP 40 


47 1 


0415 


fMR 


KST 


472 


6434 




JMP 3R+1 


473 


0515 




KBD 



WITH t?i 



TAPESPY^T LN=2 56 

P CONT 

AlA M20 SHDi 

^i7 5 1300 1300 

476 6535 JKP 29 

477 1420 SHDi 

500 1200 1200 

501 6 550 JMP 3G 

502 1420 SHDi 
50 3 37 1 4 tLi 

50 4 7234 JN-iP 2 A f. LAP RET 
[ACCEPT ONLY OCTAL 

505 1060 STAi 

506 0000 

507 1560 BCLi 

510 7770 7770 

51 1 1440 SAE 

512 0506 . P-4 

513 6434 JMP 3R+ 1 

514 4521 STC P+5 

515 6554 JMP 5Q 
516. 6427 JMP 3R-4 
517 6427 , JMP 3R-4 

520 1020 LDAi 

521 0000 

522 1356 STH 16 

523 6434 JMP 3R-M 

■ [FILL ANSWER FIELD WITH T?t 

524 0055 //IQ SET 15, 

525 0000 

52 6 6 554 JMP 5Q 

527 6015 JMP 15 

530 7032 JMP 7R 

531 1020 LDAi 

532 0060 60 . 

533 1356 STH 16 

534 6526 JMP p-6 

535 1020 it^Q LDAi 

536 0000 

537 1440 SAE 

540 0016 16 

541 6543 ■ JMP P+2 

542 6411 JMP 3A CC 

543 4016 STC 16 

544 6 52 4 JMP 10 

545 00 56 SET 16 

546 0536 2G-2-1 

547 6 43 4 . J\^^P 3R-f- 1 

[EOL - IGNORE IT IF NUT AT END OF FIELD 

550 6 554 ;v30 JMP 5Q [ C 

551 6 565 JMP 7Q CC 

552 70 32 , JMP 7R CC RETURN 

553 6427 JMP 3R-4 CC 

554 1336 nSQ LDHil6 

555 1420 SHDi 

556 7600 7600 

557 6000 JMP 

560 1460 SAEi 

561 0077 77 



TAPESPY^IO LN=347 



P CONT 




562 0220 


XSKiO 


563 0220 


X5KiO 


564 6000 


JMP 
C 
//7Q JMP 50 


565 6554 


566 6A2A 


Ji^iP 2R+3 


567 7032 


JMP 7R r.7 7 RETURN 


570 6565 


JMP P-3 
C 
C CHAR GRID 




571 4136 


//6Q 4136 CO 


572 3641 


3641 


573 2101 


2101 CI 


5.74 0177 


0177 


57 5 4523 


4 52 3 C2 


576 2151 


2151 


577 4122 


4122 C3 


600 2651 


2651 


601 2414 


2414 C4 


602 0477 


0477 


603 5172 


5172 C5 


604 0651 


0651 


605 1506 


1506 C6 


606 422 5 


4225 


607 4443 


4443 C7 


610 60 50 


60 50 


611 5126 


5126 C8 


612 2651 


2651 


613 5120 


5120 C 9 


614 3651 


3651 


615 0300 


0300 CEOL 


616 0303 


0303 ClvIDE BAR 


617 0507 


50 7 CDEL . 


620 0037 


0037 CLITTLE D 


621 0000 


0000 C SPACE 


622 0000 


0000 


623 0101 


0101 Ci 


624 0126. 


0126 


625 3700 


3700 CP 


626 3424 


3424 


627 0404 


0404 C- 17 


630 40 4 


0404 


631 40 4 


040 4 C+ 20 


632 437 


0437 


633 0000 


0000 C 1 21 


63 4 007 7 


0077 


635 3614 


36 1 4 C// 22 


636 .1436 


1436 . 


637 1106 


1106 CCASE 


640 i 1 1 r 


• 1 1 1 1 C SMALL C 


641 .447 7 


4477 .CA 


6 42 7 7 44 


7 7 44 


643 5177 


5177 CB 


644 2651 


• 26 51 


645 4136 


4136 CC 


646 2241 


2241 


647 4177 


4177 CD 



TAPir.SPY> 1 1 


•LN=440 




P CONT 






6 50 3641 


3641 




;651 4577 


4577 


IE 


652 A\A5 


4145 




653 4477 


4477 


CF 31 


654 4044 


4044 




655 4136 


4136 


CG 


656 2645 


2645 




657 1077 


1077 


CH 


660 7710 


77 10 




661 7741 


7741 


CI 


662 0041 


0041 




66 3 4142 


4142 


CJ 


66 4- 407 6 


407 6 




665 1077 


1077 


CK 


666 4324 


4324 




667 0177 


0177 


CL 


670 0301 


301 




671 3077 


3077 


CM 40 


672 7730 


7730 




673 3077 


3077 


CN 


674 7706 


7706. 




675 4177 


4177 


CO 


676 7741 


7 7 41 




677 4477 


4477 


CP 


700 3044 


3044 




701 427 6 


427 6 


CQ 


702 0376 


0376 




70 3 447 7 


4477. 


CR 45 


70 4 3146 


3146 




705 5121 


5121 


CS 


706 4651 


4651 




707 4040 


40 40 


CT 


7 10 4077 


4077 




71 1 0177 


0177 


CU 


712 7701 


7701 




713 0176 


0176 


CV 


714 7402 


740a 




715 0677 


0677 


CW 


7 16 7701 


7701 




717 1463 


1463 


CX 53 


720 6314 


6314 




721 0770 


0770 


CY 


722 7007 


7007 




72 3 4 543 


4 543 


CZ 55 


724 6 1 51 


6151 




72 5 1272 


12 72 


CLEFT HETA 


726 0207 


0207 


CL AND ARKOV 


727 2504 


2 50 4 


CHIGHT l-iElA 


730 0416 


0416 


CAS IN LAP 


731 4020 


4020 


c? 


732 20 55 


2055 




733 1212 


1212 


C = 


7 34 1212 


1212 




735 0107 


107 


C u 


736 107 


0107 




737 0500 


500 


C> 


740 0006 


0006 





TAPESPY^IS LN=531 



p 


CONT 






741 


0001 


0001 


[ . 


7 42 


0000 


0000 




743 


4577 


4577 


[e 


744 


77 45 


7745 




745 


4177 


4177 


t c 


7 46 


0000 


0000 




7 47 


0101 


0101 


C- 


7 50 


0101 


0101 




751 


0070 


0070 


C t 


7 52 


0070 


0070 




753 


0700 


0700 


Ci 


7 54 


0700 


0700 


. 


7 55 


2410 


2410 


i:< 


7 56 


0042 


0042 




7 57 


4200 


4200 


c> 


760 


1024 


1024 




761 


0000 


0000 


C 3 


762 


77 41 


7741 




763 


20 50 


2050 


c^-;< 


764 


0050 


0050 




765 


2200 


2200 


C: 


7 66 


0000 


0000 




767 


777 7 


7777 


CEOM 77 


770 


7777 


7777 
C 
CQ+A OPTl 








: ON DISPLAY 






2D=P- 


•4000 


77 1 


2734 




^ 


772 


4643 






77 3 


3724 






774 


5414 






77 5 


2724 


\i 




776 


4724 






777 


1 446 






1000 


472 4 






1001 


4547 






1002 


3441 






1003 


3214 


//4B T DISPLAY DATA STARTING i 


1004 


1214 


t 




1004 


1225 






1005 


37 42 






1006 


2636 






1007 


1414 










BLOCH 


[ i 


1010 


7660 


//IB 7 660 




101 1 


60 60 


60 60 




1012 


7 6 14 


7 6 14 




1013 


50 41 






10 14 


3447 






1015 


1414 


tUNTi 


■ I 


1016 


7660 


//2B 7660 




1017 


7612 


7612 




1020 


4754 






1021 


4330 






1022 


1470 






1023 


3770 






1024 


.1431 







TAPESPY/13 LN=576 

P CONT 

1025 A'^Ab 

1026 \A31 

1027 2^43 

1030 061^1 TTYPE TLt FOR LAP6i 

1031 1277 1277 

C 

[DECODE UNIT^ST0F?E IN TITLE AND.RDC IN'STR 

1032 1000 //7R LDA 

10 33 1016 2B CUNIT 

1034 1560 BCLi 

1035 7772 7772 

1036 1340 STH 

1037 17 53 IG CUNIT DISPLAY 

1040 0243 ROL 3 

1041 1060 STAi 

1042 0000 //3X CUNIT 

1043 1120 ADAi 
10 44 0723 KiTBi 
1045 5047 STC P+2 

10-46 5270 STC 6C CI NIT SAM VALUE TO ZERO 

1047 0703 MTB 

1050 6411 JMP 3A CNO UNIT 

1051 1000 LDA 

1052 1042 3X 

1053 1340 STH 

1054 5321 4i6E-l 
10 55 1340 STH 

1056 5451 4I6J-1 

1057 1340 STH' 

1060 5131 • 4I2H 

1061 1620 BSEi 

1062 0020 ,i 

1063 1340 STH 

1064 5123 4I2G 

1065 1300 LDH 

1066 5011 4I1B+1 [LO BN DIGIT 

1067 5074 STC p+5 

1070 1300 LDH 

1071 5010 4I1B CHI BN DIGIT 

1072 0246 ROL 6 

1073 1 160 ADMi 

107 4 0000 CTEMP 

107 5 1300 LDH 

1076 101 1 lB+1 ChID DIG 

1077 0243 ■ ROL 3 

1 100 307 4 . ADD p-4 

1101 10 40 STA 

1102 0014 14 Ct3l4 = BEG BN 

1 103 007 6 SETil6 

1 104 5000 5000 

1 105 3104 ADD p-1 

1106 1460 - SAEi CHITAPE? 

1 107 57 77 5777 

1110 7 122 JMP 2G-1 CREAD 

,1111 0441 SNS 1 

1112 7 116 JMP P+4 C CHARS 

1 1 13 1020 LDAi 



TAPESPY^M LN=663 



p 


CONT 






1114 


4776 




477 6 


1115 


7 122 




JKP 2G-1 


1 1 16 


007 4 




SETil4 


1 1 17 


0776 




77 6 


1 120 


1020 




LDAi 


1 121 


5776 




5776 






C INITIAL READIN 


1 122 


5124 




STC 2G+1 


1 123 


0700 


/y2G 


ROC 


1 124 


0000 




[05 


1 125 


3124 




ADD 2G+1 


1 126 


1 120 




ADAi 


1 127 


100 1 




1001 


1 130 


5132 




STC 2H+1 


1 131 


0700 


j^2H 


•RDC 


1 132 


0000 







1 133 


0073 




SETi2I 


1 134 


2 400 


r 


2400 CI NIT CORE LOCN 












C START OF KiAJOR LOOP 


1 135 


0055 


new 


S ET 1 5 


1 136 


00 14 




14 


1 137 


0057 




SET 17 


1 140 


0016 




16 


1 141 


1520 




SROi 


1 142 


0000 


i^GZ 





1 143 


7513 




JMP 2L [DISPLAY LAP 6 CHARS 






[DISPLAY BINARY SETUP 


1 144 


0517 




LSW [GET SCALING AMOUNT 


1 145 


02 43 




ROL 3 . 


1 I 46 


1560 




BCLi 


1 147 


7770 




7770 


1 150 


470 




AZEi 


1 151 


3747 




ADD 5lv [=NOP-SCR 


1 152 


1 120 




ADAi 


1 1 53 


0340 




SCR 


1 154 


5162 




STC 2T+1 • 


1 155 


Q070 




SETilO 


1 156 


0777 




777 


1 157 


0051 




SET 1 1 


1 160 


0013 




21 






C DISPLAY BINARY 


1 161 


ioi 1 


//2T 


LDA 1 1 [DATA LOCN 


1 162 


Op 1 6 




NOP [ OR SCR 


I 163 


0170 




DISilO 


1 164 


1000 




LDA 


1 165 


001 1 




11 


1 166 


1620 




BSEi 


1 167 


7 400 




7400 


1 170 


0470 




AZEi 


117 1 


7 541 




JMP 2M [END OF GTR 


1 172 


0231 


//2V 


XSKil 1 


1 173 


0016 




NOP 


1 174 


0210 




XSK 10 


1 175 


7161 




JK.P 2T [MORE PTS TO DISPLAY 






[KEY STRUCK?. 



TAPESPY^IS LN=:754 

P CONT 

1 176 043 5 //2N KSTi 

1 177 7230 JMP 5A 
[READ SSI 

1200 0011 CLR 

1201 0461 SNSil 

1202 0017 COM 

1203 1040 STA 

1204 1142 6Z 

1205 0451 APO . ' 

1206 7247 JMP 2K C CHARS 

1207 2014 ADD 14 • 

1210 1460 SAEi 

121 1 0777 777 

1212 72 41 JMP 2 J 

C HI TAPE STOP 

1213 0074 SETil4 

1214 0776 776 

1215 1020 LDAi 

1216 6777 -1000 

1217 2016 ADD 16 

1220 047 1 APOi 

1221 3304 ADD 3Z 11 = 4000 

1222 1040 STA 

1223 0016 16 

1224 0301 ROR 1 CGET QTR 

1225 4013 STC 21 

1226 5335 . STC 6Y CNOT AT RIGHT END CHARS 

1227 7 135 JMP 6H 

C 

CREAD KEYBOARD 

1230 515 ri5f\ KED 

1231 1460 SAEi 

1232 0037 

tOLi 

1233 6411 JMP 3A CNEW BN 

. C RETURN TO LAP6 

1234 0075 //2A SETi 15 

1235 0701 RCG 

1236 0076 SETi 16 

1237 7300 7300 
12 40 6015 JMP 15 

C ■ - ■ 

CJUST CHANGED SSI TO BIN? 

1241 1440 //2J SAE 

1242 001 5 15 

12 43 72 47 JMP P+4 CNO 

1244 7 622 JMP 2Z [I NCR 1 5.» 1 7 

1245 5270 STC 6C . 
12 46 727 5 JMP 71 

[DISPLAY UNIT// 

1247 0062 /;2K SETi2 CDIST FROM TOP 

1250 0000 

1251 0063 SETi3 

1252 1750 lG-3 

1253 0061 SETil CFOR DSC 

1254 0030 30 

1255 7632 JMP 3B ' 



TAPESPY:»16 LN=10^i/-! 

P CONT • 

.[MODIFY SAM RATE 

12 56 0AS2 //6U SNSiS 

1257 7264 JMP 6V 

1260 0232 XSKil2 

1261 7135 JMP 6H 

1262 0072 SETil2 . 

1263 7773 -A l-AQ FOR "LING 

C SAMPLE KNOB ZERO 

1264 0100 //6V SAM. 

1265 0017 COM 

1266 0344 • SCR A ■ \ 

1267 1060 STAi 

1270 0000 //6C C SAMPLED VALUE 

127 1 470 AZEi 

1272 7 135 . JMP 6H C NO MOTION 

127 3 451 . APO 

127 4 7 424 JMP 7 J CNEG 

[POSITIVE- MOVE BN UP 

1275 1020 ^11 LDAi " 

1276 0001 1 

1277 2015 ADD 15 [CURRENT BN 

1300 0242 ROL 2 

1301 0451 APO • 

1302 7323 JMP 6E+1 [HI END 

1303 0302 ROR 2 

1304 4000 ff2Z STC [C0NST=400G 
130 5 2017 ADD 17 [CURRENT GTR 

1306 1120 ADAi 

1307 1000 //2X 1000 

1310 0471 ■ APOi 

1311 0301 ROR 1 [RESET 9=4 

1312 2000 ADD [NEW 0NIBN 

1313 1440 SAE - • 

1314 1322 6E 

1315 470 AZEi [SKIP 

1316 7323 JMP 6E+ 1 [ALREADY IN CORE 

1317 5322 STC 6E 

[ FOR PDP12: REPLACE - MSC 3 
. [ BY: .0416 STD 

[ JMP P-1 

1320 0005 MSC 3 ["LINC BUFFERED TAPE 

1321 0700 RDC 

1322 0000 //6E 

1 32 3 001 1 CLF: 

1324 5452 STC 6J [FORCE MEG READ NEX't TIME 

132 5 20 13 ADD 21 [I NIT CORE LOCN 

1 326 1 560 BCLi 

1327 0377 377 

1 330 5345 STC 6F 

1331 1400 SHD [SKIP IF CHAR 

1 332 1 1 42 6Z . 

1333 7337 JMP P+4 

1334 1520 SROi 
1 335 0000 //6Y 

1336 7 135 JMP 6H [RIGHT END CHARS 

1337 3270 ADD 6C [SAM VAL 
1340 1 140 ADM 



TAPESPY^IV LN=n35 



p 
1341 
1 342 
1343 
1 344 
1 345 
1346 
1347 
1350 
1351 

1352 
1 353 
1 354 
1 355 
1356 
1 357 
1360 
1361 



1362 
1363 
1364 
1365 
1366 
1367 
1370 
137 1 
1372 
1373 
1374 
137 5 
1376 
1377 
1400 
1401 
1 402 
140 3 
1404 
140 5 



1406 
1 407 
1 410 
1 41 1 
1 412 
1413 
1414 
1415 
1416 
1 417 
1 420 
1 421 
1422 
1423 



CONT 
0013 
1560 

37 7 
1460 
0000 
7362 

1 500 
1 142 
7135 

1020 
0776 
1440 
0014 
7 135 
0053 
1345 
7135 



1020 

000 1 
2014 
1460 
1000 
0470 
7 135 
4014 
3307 

1 140 
0016 
0451 
7135 
0301 
4016 
1020 
57 77 
1 140 
0013 
7135 



1000 
0013 
1560 

37 7 
5470 
3270 
20 13 
0017 
3470 
0451 
7453 
0053 

1 470 
7135 



21 
BCLi 

377 . 
SAEi 
/r'6F [LAST INIT (OTR 

JKiP 6G . 
SRO . CSKIP IF BIN 
6Z 

Jb'iP 6H 
CTEST HI END OF TAPE 
LDAi 
776 
SAE 
14 
'.JMP 6H CNO hOVE 
SET 21 

6F 
JMP 6H 
C 

CI NGREMENT 14^16 CINIT 0TR3 
//66 LDAi 
//2W 1 ; 

ADD 14 CBEG BN 
SAEi 

1000 
AZEi CSKIP 

JMP 6H 
STC 14 ' 
ADD 2X C=1000 
ADM 
16 
• APO 

JMP 6H 
■ ROR 1 . ■ 

STC 16 . 
LDAi 
#2U -2000 C CONST. 
ADM 
21 
JMP 6H ■ 
C . 

CLOW END TAPE 
//6S LDA 
21 
- ' BCLi 
37 7 
STC 6K 
ADD 6C 
ADD 21 
COM 

ADD 6K 
APO 

JMP 6J+1 
SET 21 

6K 
JMP 6H 



CSAM VAL 



tAPESPY^20 LN=,1226 

P CONT 

. CNEG TAPE roOVE 

1 A2.A 1000 iil3 LDA 

1 42 5 001 4 \A CBEG BN 

1 426 0470 AZEi 

1427 7 406 JMP 6S CLOW END TAPE 

1430 1120 ADAi 

1431 7776 -1 

1432 0470 AZEi 

1 433 001 1 CLR 

1434 547 4 STC 6L 

1 435 2016 ADD 16 CBEG Q 

1 436 1 120 ADAi 

1437 6777 -1000 
1 AAO 47 1 APOi 

1441 330 4 ADD 3Z [=4000 

1442 347 4 ADD 6L 
1 AA2 1440 ■ SAE 

1 AAA 1452 6J 

1 445 0470 AZEi [SKIP 

1446 7453 . JMP 6 J+ 1 [ALREADY IN CORE 

1447 5452 STC 6J 

[ FOR PDP12 REPLACE MSC 3 
C BY 0416 STD 

• [ JMP P-1 

1450 0003 MSC 3 [uLINC BUFFERED TAPE 

1451 0700 RDC 

1 452 0000 U63 

1453 001 1 CLR 

1454 5322 STC 6E [FORCE POS READ 

14 55 5335 STC 6Y [LET CHARS GO RIGHT 

1456 2013 ADD 21 [INIT CORE LOCN 

1457 1560 BCLi 

1460 0377 377 

1461 5470 STC 6K 

1462 3270 ADD 6C C SAM VAL 

1463 1140 ADM 

1 464 0013 21 

1465 1560 BCLi 

1 466 0377 377 

1 467 1460 SAEi 

1 470 0000 //6K • 

1471 7 47 3 JMP P+2 

1472 7135 JMP 6H CNO CHG IN G 
147 3 00 7 4 SETil4 

147 4 0000 ?:''6L [NEW INIT OTR 

147 5 1000 . 'LDA 

1476 1452 6J 

147 7 1560 BCLi 

1 500 07 7 7 77 7 

1 501 10 40 STA 

1502 0016 16 [NEW INIT QTR 

1503 1460 SAEi 

1504 7000 f/3Y 7D00 

1 505 7 135 JMP 6H 

1506 1020 LDAi 

1507 2000 2000 
1510 1140 ADM 



TAPE:SPY>21 LN=1317 

P CONT 

1511 0013 21 

1512 7 135 JMP 6H 

C 

[DISPLAY LAP6 CHARS 

1 513 0062 //2L SETi2 

151^ 000-^i //2E A [CONSTANT 

1515 0070 SETilO [TO DIS F3N LATER 

1516 1141 1141 
1 517 0066 SETi6" 

1520 7763 -14 

1521 1000 LDA 

1 522 0013 21 ' 

1523 10 40 STA 

1 524 0003 3 

1525 1560 BCLi 

1 526 4377 437 7 

1527 5707 STC 3E [I NIT LOC QTR START 

1530 0017 COM 

1531 5650 STC 6X [TO SHOW EOL 
1 532 0061 //3C SETil 

1 533 0030 30 

1 534 001 1 CLR 

1535 7634 JMP 3B+2 [DISPLAY 

1 536 0222 XSKi2 

1537 0226 XSKi6 

1 540 7 532 JMP 3C 

[DISPLAY BN? 
1 541 .1020 i^'2M LDAi 

1 542 6637 - 1 1 40 

1 543 2010 ADD 10 

1 544 451 APO 

1545 7603 JMP 2P [DONtT SHOW BN 

1 546 5575 STC 2S+1 

[SETUP BN 

1 547 001 1 CLR 

1550 2015. ADD 15 [CURR BN 

1551 5756 STC IH 

1552 1300 LDH 

1553 4015 ■ 4115 

1554 0343 //^2Y SCR 3 [CONSTANT 

1555 1340 STH 

1 556 5756 41 IH 

1 557 000 5 ZTA 

1 560 0244 ROL 4 

1 561 1340 . STH 

1 562 17 57 lH+1 

1 563 0062 SETi2 

1 564 0001 1 

1 565 0063 SETi3 

1566 1754 lH-2 
1 567 1000 LDA' 

1 570 0003 3 

1 571 1560 BCLi 

1 572 4377 4377 
1 573 5707 STC .3E 

[DISPLAY BN 
1 574 0061 /;^2S SETil 



TAr-^E:SPY>22 


> LN=1410 




P CONT 






1575 0000 







1576 7632 


JMP 3B 


[DISPLAY 


1577 0222 


XS}<i2 




1600 1520 


SROi 




1601 2 52 5 


2525 




1602 7574 


JMP 2S 




1603 1500 


//2P SRO 




1604 1142 


6Z CSKIP IP BIN 


1605 7176 


JMP 2{\ 


1 C DI SP UNIT// 


1606 0210 


XSK 10 


[END OF SCOPE? 


1607 7622 


JMP 22 


: [I NCR 15;. 17 




[DISPLAY VERT LI NE . BETViEEIsJ BLOCKS 


1610 0062 


SETi2 




1611 7677 


-100 




1612 1020 


LDAi 




1613 7 400 


7 400 




1614 0150 


DIS 10 




1615 1120 


ADAi 




1616 0006 


6 




1617 0222 


XSKi2 




1620 7614 


JMP P- 


4 


1621 7172 


JMP 2V" 
C 
C INCREMENT 






15^ 17 


1622 0235 


i(^2Z XSKilS 




1623 1020 


LDAi 




1624 1000 


1000 




1625 20 17 


ADD 17 




1626 0471 


APOi 




1627 0301 


ROR 1 


[RESET Q4 


1630 4017 


STC 17 




1631 6000 


JMP 

r. 

[DISPLAY CH 






ARS SUBROUTINE 




[ AFTER MSGDIS OF JAMES HANCE 


1632 001 1 


r73B CLR 




1633 56 50 


STC 6X 




1634 2000 


ADD 




1635 5673 


STC 3J 


[SAVE RET 


1636 2002 


ADD 2 




1637 1560 


BCLi 




1640 7760 


7760 




1641 0245 


ROL 5 




1642 0017 


COM 




1643 3554 


ADD 2Y 


[=343 


16 44 4446 


STC 4Q- 


i [VERT 


16 45 006 5 


SET is 


[^CHARS PER LINE 


1646 7753 


-24 




1647 1520 


/^■3G SROi 




16 50 0000 


//6X 


i 


1651 7702 


• JMP 3N 


1 


16 52 130 3 


^'3H LDH 3 




1653 1420 


SHDi 




1.654 1200 


1200 CEOL 


1655 7674 


JMP 3L 




1656 0241 


riSP ROL 1 




1657 2460 


ADD 5R 


[CHAR GRID ADDR 



TAPESPY^23 LN=1501 

P CONT 

1660 400 4 STC A 

1661 2446 ADD 4Q- 1 C VERT 
166.2 17 44 DSC 4 " 

1663 17 64 DSCi4 

1664 1020 LDAi 

1665 0010 10 

1666 1 140 . ADM 

1667 0001 1 

1670 1323 LDHi3 

1671 0225 XSKi5 

1672 7 6 47 JMP 36 

1673 0000 //3J RETURN 

r. . 

CEOL 

1674 0065 ,73L SETiS 

1675 7776 -1 CFORCE RETURN 

1676 1500 SRO 

1677 1650 6X 

1700 76 56 JMP 3P 

1701 7 670 JMP 3 J- 3 

C 

[DISPLAY BLOCK BOUNDARY 

1702 1000 //3N LDA 

1703 0003 3 

1704 1560 BCLi " 
170 5 4377 437 7 

1706 1460 SAEi 

1707 0000 //3E CSTART OF INIT LOC QTR 

1710 0470 AZEi CSKIP 

1711 7652 JMP 3H [NOT BNDRY 
17 12 5707 STC 3E 

[DISPLAY VERTICAL STROKE 

1713 1020 LDAi 

1714 7775 -2 

1715 2001 ADD 1 
17 16 4007 STC 7 
17 17 0064 SETi4 

1720 7767 -10 

1721 2446 ADD 40-1 CVERT 

1722 147 DIS 7 ■ 

1723 1 120. , ADAi 

1724 0003 '3 
172 5 022 4 XSKi4 

1726 7 7 22 JMP p-4 

[DISPLAY HORIZ LINE 

1727 1120 ADAi 
17 30 0002 2 

1731 0067 SETi7 

1732 0777 777 

1733 0167 DISi7 
17 34 0227 XSKi7 

1735 0227 XSKi7 

1736 0227 XSKi7 

17 37 77 33 JMP P-4 

[TEST FOR HI TAPE 

1740 1000 LDA 

17 41 0014 14 



TAPESPY^2^ LN=1572 , 

P CONT 
17 42 350 A ADD 3Y [=7000 

17 43 450 • AZE 

1744 7652 JMP 3H 

1745 5335 STC 6Y CFREE:ZH: 21 TO RIGHT 

1746 7541 JMP 2M CDISP BN 

C • 
[CONSTANTS 

1747 7455 /;5VJ NOP-SCR 

[DISPLAY TEXT 
17 50 50 41 

1751 3447 

1752 1414 

TUNIT i 
17 53 0012 ^'\G 0012 

1754 2541 

1755 1412 TBN 

17 56 0000 #1H 0000 
1757 0012 0012 

■ ■ . [ •■ ■ ■ • 
21 = 13 
[THE ABOVE IS AN ADAPTATION AiiD CORRECTION OF tMaGSPYt, 

:> 

. [ FROM A BINARY COPY OBTAINED FRON DEC^ THEN 
.[ DISASSEMBLED AND REWORKED- 

[IT USES BUFFERED TAPE ON THE -SPEAR MICROLINC 300. 
[M.SEIDEN 
[END TAPESPY 6! 27! 69 



